home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / libs / graphics3d.lha / src / library / debuglib.c next >
Encoding:
C/C++ Source or Header  |  1998-10-17  |  593 b   |  33 lines
  1. /***********************************
  2.  ** Routin per poter eseguire il  **
  3.  ** debug delle share library di  **
  4.  ** Amiga.              **
  5.  ** Non si puo' usare all'esterno **
  6.  ***********************************/
  7.  
  8. #include <dos/dos.h>
  9.  
  10. /**********************************
  11.  ** accoda nel file 'logerr' la  **
  12.  ** stringa indicata         ** 
  13.  **********************************/
  14. long int write_dbg(stringa)
  15. char *stringa;
  16. {
  17. long int fl,i,rt;
  18.  
  19. fl=Open("LogErr",MODE_READWRITE);
  20. if (!fl) return(0);
  21.  
  22. Seek(fl,0,OFFSET_END);
  23.  
  24. i=0;
  25. while(stringa[i++]!=NULL) ;
  26.  
  27. rt=Write(fl,stringa,i-1);
  28.  
  29. Close(fl);
  30.  
  31. return(rt);
  32. }
  33.